COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun np+1 () (setq *np* (1+ *np*)))
C00003 ENDMK
C⊗;
(defun np+1 () (setq *np* (1+ *np*)))
(defun np-2 () (setq *np* (- *np* 2)))
(setq *np* 1)
(m-defun fib (n)
 (cond ((zerop n) 1)
       ((= n 1) 1)
       (t 
	(qlet (< *np* 99)
         ((n-1 (progn (np+1) (fib (- n 1))))
	  (n-2 (progn (np+1) (fib (- n 2)))))
	 (np-2)
	 (+ n-1 n-2)))))

89 
Number of Processors:	16
Process Creation Time	0
Global Read Time	0
Global Write Time	0
Processes Created:	120
Processes Scheduled:	121
Read Conflicts:		0
Write Conflicts:	0
Wait Cycles:		15707
Active Cycles:		8533
Multiprocessor Steps:	1052
Max Load		109
Average Load		39.3
Standard Deviation	1.03
=>